home *** CD-ROM | disk | FTP | other *** search
/ Floppyshop 2 / Floppyshop - 2.zip / Floppyshop - 2.iso / art&graf.ix / art-3412 / picprt2 / picprint.s < prev    next >
Text File  |  1987-04-21  |  1KB  |  80 lines
  1. ; PICPRINT written by NICK LOTT 10th Augest 1989 with DevPacST from HiSoft
  2. ; Go to the OPTION menu and select INSTALL APPLICATION
  3. ; Type PI? for the document type then when you double click any degas
  4. ; pictures, they will automatically loaded and printed by PICPRINT.
  5.  
  6.     pea save(pc)
  7.     move.w #$26,-(a7)
  8.     trap #14
  9.     addq.l #6,a7
  10.     movea.l $4(a7),a5
  11.     add.l #$81,a5
  12.     move.l a5,-(a7)
  13.     move.w #$3d,-(a7)
  14.     trap #1
  15.     addq.l #8,a7
  16.     tst d0
  17.     bmi.s error
  18.     move.w d0,d5
  19.     pea buf(pc)
  20.     move.l #34,-(a7)
  21.     move.w d5,-(a7)
  22.     move.w #$3f,-(a7)
  23.     trap #1
  24.     lea 12(a7),a7
  25.     tst d0
  26.     bmi.s error
  27.     pea buf+2(pc)
  28.     move.w #6,-(a7)
  29.     trap #14
  30.     addq.l #6,a7
  31.     move.w buf,-(a7)
  32.     move.w #2,-(a7)
  33.     trap #14
  34.     addq.l #2,a7
  35.     move.l d0,-(a7)
  36.     move.w #3,-(a7)
  37.     trap #14
  38.     addq.l #2,a7
  39.     move.l d0,-(a7)
  40.     move.w #5,-(a7)
  41.     trap #14
  42.     lea 12(a7),a7
  43.     move.w #3,-(a7)
  44.     trap #14
  45.     addq.l #2,a7
  46.     move.l d0,-(a7)
  47.     move.l #32000,-(a7)
  48.     move.w d5,-(a7)
  49.     move.w #$3f,-(A7)
  50.     trap #1
  51.     lea 12(a7),a7
  52.     move.w d5,-(a7)
  53.     move.w #$3e,-(a7)
  54.     trap #1
  55.     addq.l #4,a7
  56.     move.w #20,-(a7)
  57.     trap #14
  58.     addq.l #2,-(a7)
  59. error    pea colbuf+2(pc)
  60.     move.w #6,-(a7)
  61.     trap #14
  62.     addq.l #6,a7
  63.     move.w colbuf,-(a7)
  64.     move.l #-1,-(a7)
  65.     move.l #-1,-(a7)
  66.     move.w #5,-(a7)
  67.     trap #14    
  68.     clr.w -(a7)
  69.     trap #1
  70. save    move.l #$ff8240,a0
  71.     move.l (a0)+,colbuf+2
  72.     move.l (a0)+,colbuf+6
  73.     move.l (a0)+,colbuf+10
  74.     move.l (a0)+,colbuf+14
  75.     move.b $ff8260,colbuf+1    
  76.     rts
  77.     
  78. data    
  79. colbuf    ds.b 34
  80. buf    ds.b 34